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First, notice the OCT OBER date on this issue. The reason for this is 
that I accidentaly put October on the last issue instead of September. 
To prevent you from missing an issue, | made this one Oct. as it 
should be Second, the next meeting of sLIST is on the back cover. 
NYTSE will meet the second Mon. of am at Miss Kim's, Park Ave. 50., · 
between 2154 and 22nd St, Time is 
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Newsletter Newsnotes 


Before I get to the news, let me 
explain the makeup of this issue. If 
you flip through it, you will notice 
that the entire issue 15 made up of 
programs (sprinkled with a few little 
Біте». Why have I printed an entire 


article of listings? Have I carried 
the name of the newsletter too far? 
Two reasons- 13 I don't have ANY 
articles I can print, and 23 people 
asked for programs! Шә here are 
programs! I tried to present an equal 
mix of Z068 and GL programs to be fair 
to ail. Unfortunately, I haven't used 
my ZX] ain a LONG time, and couldn't 
dig up anything worthwhile to print 
for it...how about some of you Tim? 3? 
I know there are still a few 2Х51 
loyalists out there. Actually, there 
is опе program for the ZX31, and some 
of the other programs can run on the 
ВРО if you wanted them too. Also, if 
any of the programs have been seen Бу 
you before, my apologies. To help 
make up for any  inconvenienee, the 
'Entertainer' тышіс program is 
available on tape, along with some 
other public domain programs (like a 
ОБЕ version of  GtfBert!2). If you 
would like a copy, just send a 
cassette tape with return postage to 
me: 


Joe Newman 
325 West Jersey Street, #20 
Elizabeth, New Jersey OZ7Zz02 


Interesting Issues 


Current information on upcoming Fests: 
А= announced in the last issue, the 
scheduled TS Fest that was to be heid 
in California has been cancelled. Ав 
of the moment of writing this, the 
only 'large' Fest I know of will be 
held in Florida. Called the TS Winter 
Fest it is being run by several Fl. 
users groups. 


I have been receiving conflicting 
information about this Fest from 
various sources. THE source for info 
on the Winter Fest іс the Sun State 
BES... .904-775-0093. This BBS is 300 


baud only, 8/1/М, 24 hours. Messages 
are posted here by the actual fest 
planners. The Fest is to be held the 
first weekend in March, (NOT the last 
weekend!3, March 4-6, at the Orlando 
Marriott Hotel. The last rates I 
heard were $30 per night for 
rooms...wow! I suggest if vou plan to 
go you start reserving motel rooms and 
airline tickets as SOON AS 
POSSIBLE...i.e. NOW. For more info on 
the Fest you can vrite: 


Sunstate TS Winterfest 

249 North Harden Avenue 
Orange City, FL 327563 
Rates for attending the Fest are 
currently set at $5 per person, or $3 
per family, payable to “NEF TSUG”. 
The rates will probably be a little 
higher at the door. I will print more 
info as I receive it. 


LIST has decided to purchase a small 


quantity of microdrive cartridges. I 
believe these will be available to 

IST members at the groups 
cost...about $2.50 per cartridge... 
probably less. I have been unable to 
obtain a reliabie source for 
cartridges at a lower price. The 


group із purchasing their cartridges 
from А+. If vou would iike to receive 
programs on microdrive at a LIST 


meeting it is suggested that you bring 
your own cartridges until the LIST 
cartridges arrive (or to save buying 
cartridges). 


Attending the October meeting was Mark 


Smith, designer of a 65020 board for 
the GL. Mark designs products for 
Guantum Computing, and shared some 
fascinating information with the 
group. He says his 68020 board Cof 
which he has a working prototype) 


makes the GL operate FASTER than a 
Macintosht+ !! He ran benchmarks that 
were published in BYTE magazine, and 
the speed was pretty amazing. 
Although not аз fast as а full blown 
вво2о computer Cwhich has been 


designed to make optimal use of 68020 
circuitry), the GL 68020 board 
increases GL speed's by up to SEVERAL 


HUNDRED PERCENT! At the present time 
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there is по set retail price, but 


taking into account the cost of parts 
(68020 = $200, 6888] math co-processor 
= $180, sockets another  $30-500, the 
device will probably be about $4 to 6 
hundred dollars. Mark also stated that 
the board allows GL memory expansion 


up to 4 GiGAbytes Cif someone wished 
to produce that kind of expansion)! 


Speaking of the GL, 
warning for you. 

surprised that a 
merchandise is giving 
an item- but here it is: I have had 
very bad luck with several games 
produced by TALENT software. It seems 
that they fail to heed one of the LAWS 
ә? QL use- multiple cartridge 
formatting. The programs from them 
that I have sold (Jungle Eddi, Lost 
Pharaoh, GIMP) seem to load once for 
not at all) before giving the ominous 


I have an advisory 
You're gonna be 
dealer of GL 

notice against 


BAD MEDIUM report. I returned Jungle 
Eddi to my supplier THREE times 
already. I'm not saying that the 
software itself is bad- Talent 
software is among the best (1.өе.- 
BASTC-ALLY>. it is their media 
reproduction techniques that could 
use work. Unless they improve their 
quality control they might end up 


tumbling down 
after Clive. 


the wrong  trail- right 


And finally- a note on the future of 


the Futura. Are you sitting down for 

this опе? Іп case you're not аҹаге, < 
the Futura was to Бе а йі clone, 

actually a much upgraded version of 

the @L. 


disputes with Amstrad over 


the GL operating system, £he Futura 


After many delays, including 9, alter each’ ‘parameter. 

rights toy number to move upwards, and 

М * 785 UNDER 1:PRINT 
4 7 


You сап thank Frank Tomei of Quantum 
Computing for that one. 


GL SOUND EXPERIMENTER 


The following is a program you can use 
to experiment with the GL. BEEP 


command. When you run the program you 
will see some instructions at the top 
of the screen. Near the bottom you 
will see the word БЕЕР followed Бу 
several numbers. These are the 
current settings for the BEEP 
command...you will hear what those 
settings do. I have no idea who 


created this program and I am assuming 
it is public domain. ІР anyone knows 
who the author is, pleae iet me know 
and I'11 print the info. 


10 Sound 

20 i 

30 REMark Program created by ?? 

AO ; 

100 DEFine PROCedure Sound 

110 LOCal duration, pitchl, pitchz, 
gradx, grady, wrap, fuzz, random, 
fase, time 

120 LüCal userin, i, 
130 CLOSE #1: OPENS, 
con AS5Ox2OO0a36x12 128 
140 PAPER 207: INK 2: MODE 8 
150 duration-20000: pitchl-60: 
pitch2-40:  gradx-1800;: grady=5: 


line? 


wrap-5: fuzz-O:random-13: time = DATE: 
RANDOMISE 

160 CSIZE 2,0: CLS: STRIP 7: AT 0,10 
170 PRINT ‘SOUND EXPERIMENTS’ - 


STRIP 207 
120 PRINT ‘Use top row numbers to 
Press ihe 


'SHIFT'; :UNDER О 


has still not surfaced. However, the 20 PRINT ' the number to 

latest news is that the Futura won't'd movedownwards. Press R for random, апу 
be a new computer after all, but!t other key to PAUSE.’ 

rather an upgrade CARD. You know- avo 200 PRINT ‘Write down the command wher 
card that would slot into another, it is what you want. * 

computer to make that computer have k 210 STRIP 5: АТ 16,0: PRINT’I = time, 
the 9005 operating system. But the QL 2 = pitch 1, З = pitch 2 774 = grad 
already has  QDÜOS...so what computer (х, Б = grad y, 6 = wrap “77 = 


can this board Бе for? You guessed 
it: IBM's and IBM compatibles!!! 
Ain't it something...an UPgrade for 
the IBM ТО a QL! By-the-way, you do 
know what IBM means, don't you? It 
means Ignorant Buyers Merchandise. 


+ 


? fuzzy, Ә = random 
220 REPeat sounding 

230 line$-'beep 
'&duration&','&pitchlI&','&pitchz&'," 
&gradx&','&grady&','&wrap&', '&fuzz&', 
'&random 


Fage 2 


240 AT 12,0: CSIZE 2,1: STRIP. 6 

250 INK O:PRINT line$;FILL$(C* 

*, S7-LENC line$)): STRIP 207 

гео CSIZE 2,0: АТ 14,0: parm-l:INK | 
270 FOR i-5 TU LEN(CIine£) 

2080 IF lineS$0i) = *',' THEN PRINT 
ТО i—2;/parm;: рагт=рагт+1 

290 END FÜR i 

300 PRINT TO LEN(Clinef$)—-2;'8 

^"; INK 2 

310 BEEP duration, pitchl, pitch2, 
gradx, grady, wrap, fuzz, random 

зго REFeat testing 

330 userin = CODECINKEY$ (2033 

340 IF userin <> О OR NOT BEEPING 


THEN EXIT testing 

END REPeat testing 
SEO IF userin <> О THEN 
за fast = DATE — time 
қ time = DATE 

390 SELect ON userin 


400 ON userin = 49, 33 
410 SELect UN fast 
420 ON fast = 1: duration = 


duration + (С — 200 Ж (userin-332)2) + 


700; duration = INT(üduration;/ lOO)*100 
430 ON fast = О; duration = 
duration + (—4000 Ж (userin-332)3 42000; 
#7000 

440 ON fast = REMAINDER 


duration = duration +6-20 Е 
Cuserin=3332 + ДО 


450 END SELect 

460 IF duration > 32767 THEN 
duration = 32767 

470 IF duration 4 -327682 THEN 
duration = —32768 

480 ON userin = 50, 64 


азо IF fast < 2 THEN pitchl = 
pitch! + (—20£(userin-642) + IO 


500 IF fast >= 2 THEN pitchi = 
pitchl + (-2Жсизегіпсбеізз + | 

570 ТЕ pitchl > 255 THEN pitchi 
= 255 

520 IF pitch! < О THEN pitchl = 
о 

S530 ON userin = 51, 35 

S40 IF fast < 2 THEN pitch? = 
Pitch? + €-2O#Cuserin=235)) + 10 

550 IF fast >- 2 THEN pitch? = 
РІ ЕСАР + (—2*(userin-352) + ] 

560 ТЕ pitch2 > 255 THEN pitch? 
= 255 

572 IF pitch2 < О THEN pitch2 = 
[e 

580 ON userin = 52, 36 

590 IF fast < 2 THEN 


600 gradx = gradx + 

(-80# Cuserin=36)3 + 40 

610 IF fast = О THEN gradx = 
gradx + (€-800#tuserin=363) + 400 
620 ELSE 

630 gradx = gradx + 
(-4#Cuserin=36)) + 2 


640 END IF 

650 IF gradx > 32767 THEN gradx = 
32767 

660 IF gradx < -32768 THEN gradx = 
-32768 

670 GN userin = 53, 37 

680 grady = grady + 
(-2#Cuserin=37)) + ] 

630 IF grady 5 7 THEN grady = 7 
700 IF grady < -8 THEN grady = -8 
ZIO ON userin = 54, 94 

720 wrap = wrap *—zf*userin-943) + 
7 

750 IF wrap > 15 THEN wrap = 15 
740 IF wrap < O THEN wrap = О 

750 ON userin = 55, 38 

760 fuzz = fuzz + (—2K*(userin-38)) 
+ 7 

>>О IF fuzz > !5 THEN fuzz = 15 
ғво IF fuzz $ О THEN fuzz = О 

790 ON userin = 56, 42 

£00 random = random + 


(—2X(ussrin-d2)3) + 1 


#70 IF random > 15 THEN random-15 
S20 IF random < О THEN random = О 
830 ON userin = ӘР, 114: REMark ОБ? 
240 pitchli-HNDOPS55); 


pltíchz-RND(OUPS5) 

S50 gradx-RHNDUSPZ&EZ):; 
grady-RNDCIS52-8 

Seo wrap=RNDC IS): 
raredom-RNDOIS) 


fuzz-RNDCIS); 


#70 ON userin = REMAINDER 

Seo AT 19,0: FLASH 1: INK I 

#90 FRINT PROGRAM IS PAUSED’ FLASH 
о: INK 2 

зоо PAUSE: АТ 19,0; PRINT FILLS$C* 
dS Le. 

ЭТО END SELect 


320 END IF 
330 END REPeat sounding 
340 END DEFine Sound 


AN OPEN LETTER TO 2068 & 1000 USERS 
Dear beloved Sinclair Users Groups: 
YOU who are still using the 2068 or 


1OOO SINCLAIR computer, my hat is off 
фо you! You must really Бе into ihe 
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locked up into the 
I know all about it! I 


power that 15 
little thing! 


spent. $2000 on а TS 1000, got 
everything there was from every ad 
SYNC magazine! I even maintained a 


vigil at the local Timex/SINCLAIR 
outlet as the shipments with the first 
TS 1500*’5 & 206076 were unloaded! I 
immediately locked myself ашау from 
the world for six months. I literally 
went into a "Program Development СОМА” 
in an unused building tucked away 
behind a rural highway with the little 
animal. I still have a whole suitcase 
filled with the tapes with hundreds of 
these programs, I took the leftover 
[ООО 'н ағы) 1500 and put them to work 
upstairs performing data aquisition, 
measuring the wind speed, temperature 
& humidi ty out to 9 places, that's the 
nearest millionth of а mile per hour 
by the way, which is accuracy that is 
во accurate, it’s useless! 


Хо I can understand your plight with 
these machines, but I do want you to 
realize that there із а last of the 
family of SINCLAIR designs which 
literally picks up right where the 
S068 leaves off! The SINCLAIR QL 
SUPERCOMPUTER ! Certainly you know of 
it by now, and of the various discount 
prices which exist. I want to wake 
you up to the fact that at the current 
low prices of the original model, 
which is less than the cost of the 
pies en the circuli d 


prior models! This will Dé a shame! 
You users who are the greatest 
fanatics of all of the little SINCLAIR 


computers will be the guys who will 
miss the boat on this, Just because 
you aren't ready for it right now! 


DON’T BE FOOLS! EVEN ТЕ YOU FUT IT 
AWAY IN THE CLOSET RIGHT NOW AND DON'T 
USE ІТ UNTIL NEXT YEAR! АТ THE LEAST 


YOU WILL HAVE IT, THE GREATEST 
SINCLAIR COMPUTER AND THE MOST 
POWERFUL SINGLE KEYBOARD COMPUTER OF 


THE 20TH CENTURY IN YOUR POSSESSION!!! 
YOUR COLLECTION OF THE SINCLAIR FAMILY 
OF SUPERIOR TECHNOLOGY THAT REDEFINED 
THE INDUSTRY WILL ACTUALLY BE 
COMPLETE! ! 


‚ there may $ 
das superior level: 


You are probably the same people who 
are always stating that these 
computers are orphans, with no 


availability and insufficient support. 
That's only true of the extent that 
YOU are declairing it to Бе so! And 
in the process of doing this, you are 
actually serving to create, nurture, 
and subsequentially perpetuate such an 


Image! SHAME GN YOU!!! 

The QU will NEVER get stail, 
abandoned, оғ orphaned. At least not 
In our емле It's a 5000 
Architecture 32 БІТ computer vou will 
use for the rest of your life! There 
are hundreds of thousands of them in 
Europe alone! There is now the 
emergence of more business, 


educational, scientific, and hacker 
programs than at any other prior time! 
The interest, involvement and support 
15 still building up all around the 
world! The emergence of the о 
clones, the THOR, FUTURA PC-68SK for 
QDOS оп MS-DOS апа the CFPMulator ROM 
and jt's Universal Disk Read softwares 
bear this out! X 


It’s the lagging effect. You users of 
the prior SINCLAIR models who still 
don't own the QL are the living proof 
of this Jagging effect because you 
still don't have it!!! Here is an 
example of the similarity of the QL 
and the 2068, де how the Mm carries 
the tradition to a. Е 


The 2068 has border, paper and ink, 
for the sole main display. The QL 
useys border, paper and ink too, in 
wi ndews addressed as channels, by 
number, but vou can have ыр to 360 of 
them! The size сап be specified te 
anywhere оп the screen you want, and 
the border can be specified in width 
by pixels. If that’s still not 
enough, vou can һауе multiple colors 


in the border, paper and Ink, 
specified discretely, or using 258 
default patterns stored in the ROM!! 


Now that’s just a pinhole peek into 
the QL! To go on with detail would 
build into an encyclopedia! There's 


more than enough in the QL to keep any 
SINCLAIR 2068 or 1000 fanatic hardware 
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chomper wallowing until the end of the 
century! 


I'M INTO SINCLAIR SUPERIORITY THE WAY 
THE POPE IS INTO GOD!! This should be 
obvious. and now the QL is 
practically being GIVEN away. So if 
you are one of the SINCLAIR computer 
users who doesn't have the QL in your 
collection yet, you should act now and 


get the last of the models in this 
family while it's still here! I'm nat 
telling you to start usimng it, that is 


business. If you want to put it 
Just keep on going with the 
1000, then go іс it! 


your 
ашау and 
S065 or 


BUT АТ LEAST THE QL WILL БЕ THERE FOR 
YOU IN YOUR PERSONAL POSSESSION WHEN 
YOU FINALLY HAVE THE DESIRE TO WORK 
WITH THE UPPER ESCHILON OF SINCLAIR 
SUPERIORITY! 


I thank you for your consideration and 
I sincerely hope that you will partake 
in the opportunity to acquire maximum 
technology at the bare minimum price. 


Sincerely yours, 


Frank Toemay 
SINCLAIR QL Innovationisít 


TS TELECOMMUNICATION TIPS... 
for LONG DISTANCE BBS'ers! 


host of us пош have and use modems 
with our Sinclairs. And due to the 
dispersion of our unique group, long 
distance telecommunications are often 
required. This сап become quite 
expensive If one Is er ther nat 
careful. ТЕ can also be expensive for 
OTHERS because of you! 


How can this Бе? ІР you are on the 

receiving end of а BBS or  telecomm 

call (chat mode on а BES?) you may not. 
realize how the caller may feel about 

calling long distance. The caller may 

be desperately trying to speed up or 

end the communication, but you may 

actually be hampering the effort with 

‘Just one more question’! I wonder 

how many guys have been beat up byt 
phone bills from TS'ing! 
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to Бе 
others. 
caller seems 


important tip is 
respectful of 


The most 
courteous and 
If a long distance 
anxious to end the comm, or keeps 
saying something like ‘Ok, well take 
саге...Буе’, «don't just keep rambling 
оп! Let him or her ga! Or they may 
never call back. | 

for use during 


And finally, a tip 


actual live telecommunication chats. 
Cut typing ta a minimum. .. avoid 
reduncancy. Don't say something like 
“Му black sinclair computer 15 а 


little tiny black computer’. And it's 


not necessary to correct EVERY single 
typing mistake. Almost all SYSOPS or 
BBS'ers should realize the long 


factor prevents corrections. 

meaning is unclear, don't 
correcting. -Again, don't just 
and on describing 
caller may already 
And abbreviations 
their 


distance 
Unless a 
bother 
keep going on 
something if the 
know what you mean. 
are certainly appreciated if 
meanings are clear! 


Keep on BBS'ing, МТ BS'ing! 


LETTER 


A thank you to Cedric B. for his once 
again ~ pointirng out my *sidly?’ 
mistakes! Somehow I had a feeling he 
would Бе the one to notice my mistake 
on the last newsletter date! Say 
Cedric, interested in edi ting a 
newsletter? 

Here I am again, hurrying to get this to you, 
because you incorrectly copied my letter to 
you on the BASICODE matter. Once again I'm 
giving the complete Hilversum address of the 
originators of BASICODE: 


HOBBYSCOOP 
P O Box 1200 
1200 BE Hilversum 
The Netherlands 


Sincere], 
a 


Cedr 
ic 
А Basti, on 
S 


Note that it is NOT HOBBYCODE, 
HOBBYSCOPE, but it is HOBBYSCOOP! 
May I suggest that you do not re-type this 
letter, but splice it into your columns; it's 
formatted to fit them... 

Then, the current LISTing is issue OCTOBER 
'87. The previous one was AUGUST '87. Did I 
miss out on the SEPTEMBER issue or what? 


nor is it 


THROWING THE BABY OUT 
WITH THE WASHWATER? 


When the ZX81 appeared on the market, it uas such a sensation 
that it didn't matter that it had some less desirable features. 
It is less satisfying to find that two of these questionable 

features remained in the SPECTRUM and the Т52068, 


The features I am talking about sound fine to the perfection- 
ist, but us common folk WhO make mistakes сап be Shattered when 
we accidentally enter NEW or CLEAR or RUN. ALL our 9009 work... 
UP in smoke! Let's blame somebody! They deserve it! Really! 

It uould have been so simple to require verification uhen the 
user wants these functions. Think how much better you would be 
feeling if only you had the chance to correct your mistakes, 

Though it is impossible to eliminate the accidents, something 
CAN be done to decrease their Likelihood. 


PURGE is the answer. 


PURGE is a machine Code utility which takes the place of CLEAR 
With certain unique differences. : 

Before explaining why it's the cat's meaow, Let's discuss some 
of the operating problems ше run into. 


i. Тһе longer ше work with a program, the more "garbage" ue 
collect in the form of unused variables. They take up space. 

2. CLEAR makes no distinction between what we want to keep, 
and What we would like to get rid of. It throws out the baby! 

3. RUN, for some historic reason, also does a CLEAR! Why? 

4. NEW does exactly what we want. It wipes out everything, 
except some system variables and data above RRMTOP. It is only 
its hair trigger that is bad. 


Some will surely sag,"That's what ше have DATA statements for, 
you dummy."...Have you checked how wasteful of memory they are? 
Ь сне Бе! had no DATA statement, пог are any needed once you 

ave ‚ 


PURGE uas in fact written within two months of its appearance 
оп the market, That is а few years back. It was designed to do 
the one thing you couldn't do selectively, 

YOU can delete an instruction Line. 

You can delete the entire program. 

YOU Can get rid of an array of a string variable by dimension- 
it to 0. This draws an error, but it works. ON ERR fixes that. 
You CANNOT get rid of one single numeric variable without a 

total wash-out! 

PURGE does exactly that, It CLEARS only numeric variables, It 
leaves strings and arrays (numeric arrays too) intact, 


The Significance of PURGE i$ startling, Old habits (because 
it наз 10 be that way) can 90 М the wayside, 

You can use DATA, ог normal LET statements to define arrays, 
and then DELETE the statements! The variable now exists in the 
VARS section without being duplicated in BASIC, It is loaded 
and Saved with the program, 50 it doesn't have to be regenerated 
again--unless you hit RUN of CLEAR. " 

With PURGE, you will learn to NEVER, NEVER! use either of them 
again. This i$ what cuts down on the Possibility of accident. 

Sure, there are programs where it doesn’t matter 3 is the 
habit (nat counts, You can always Use GO fo 1 ihslead of RUM, 
It 406% not do a CLEAR, If you («ally want а CLEAR, do it; but 
get out of the habit of using RUN. Learn to deal with you vari- 
ables the same way as you edit your program, 


Often there are many smaller programs within your larger BASIC 
Program. With each section using its own variables, there comes 
а time when they get in the шау when they aren't being used. 

Most of these are defined in the routines; all if the program 
section is immune to RUN. 

When another routine, With another whole set of variables, is 
running; then the others are useless overhead. 


With PURGE, you can eliminate all variables but those current- 
ly in actual Use, Say good-bye to most OUT OF MEMORY problems, 


Тһе program for generating PURGE anywhere is shown here. At 
the overhead oí 131 bytes, it pays for itself in a hurry, 

Тһе Code Сап be rewritten in as Little as 120 bytes, but the 
Code as it stands has been bug free for years. 


As you Learn how to use PURGE, you will find that you шісі be 
loading variables in strings and arrays instead of defining them 
€ach time. You will also make much more use of DELETE for one- 
Shot routines like special graphics routines. 

Have fun uith this neu dimension in BRSIC programming. 
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Puree Р 


6000 CLS : PRINT ТАВ 11;"""PURGE МЫНЧАНЫ ЕЕ НҮ 


,RT 8,7;"Creation Ргоагат" '“ + Banküas55 "PURGE" Length: 90 Bytes т 
This Program creates a pair of 4 EXTERNAL: ГІ 
косе Code routines, which can : оғ "FIND NEXT" 14 $ 
‚бє joined in one space or in two еен чт -----------------.. ^ 
separate areas, ORG1 is the USA 0 2084855 LO HL, (NN) 23627 $(VARS) 
address for execution. ORG2 is 3 22965C LO (NN), HL 23702 + (НЕДЕ) 
the CALL address for the Subrou- 6 3E80 LO A,N 128 ЕМО OF VARS MARKER 
(іле ""FIND.NEXT"", It is usabl 8 BE CP (ML) *DONE 7 
€ by other Variable maniputatina 9 СВ RET Z #IF СОМЕ 
prearamt, Wh i Ch iS why it wasn 10 CB5E BIT 5, (ML) #DELETE? 
"included in ""PURGE""," 12 FS PUSM RF #SAUE STATUS 
без PRINT INK 1° "LENGTH: ""PUhG 13 CO0000 CALL NN o + FIND NEXT” 
90 bytes, "FI 16 22985C (0 (NN) ,ML 23704 +(МЕХТТ 
ND NEYT" e al butes," TAB 22;" 19 F1 POP AF #RECALL STATUS 
“STAB 14;"TOThL = 131 20 2008 JR NZ, 410 390 sIF DELETE 
22 289946. LO HL, (NN) 23704 +(МЕХТ! 
В INPUT "Rééresi for USA? ";0 25 229656 (9 (NN) , HL 23702 +(НЕРЕ) 
061; PRINT AT 17,0;"ORGis" :0881; 28 18ЕВ В -22 6 #NEXT RECORD 
6006 INPUT “Sections? 1 or è HERE IF DELETE 
% IF VAL etei THEN LET 982-046 30 209655 үр HL, (NN) 23702 +(НЕРЕ) 
1490: 60 TO 6007 33 Е058985С (9 DE, (NO 23704 (NEXT) 
6006 PRINT '" end “;0RG1489;: IN 37 05 н бе ISAVE NEXT 
PUT “Address for FIND NEXT? ";0n 38 nF KOR #RESET CY FLAG 
62 39 052 sc HL, n *COMPUTE RECORD LENGTH 
ACO? LET UfneINT (0009/2961, PRI X DE,M ЗАЕС DEsRECORD LENGTH 
NT '"ORCD«",0h02'" end "20000940 * UPDRTE SYSTEM” UARTABLES 
;" PRESS ANY KEY ". PRUSE 0 42 2906556 10 HL, (NN) 23653 +(5ТКЕНО) 
6008 RESTORE 6000: DATA 45, 75,92 45 19 ADO HL,DE 
34,180,92,62,128,190,200,203, 11 | 46 22655C 1р (NN) ,ML 23653 #(STKEND) 
$248, pds | 49 286356 10 HL, (NN) 23651 +(5ТКВОТ) 
6889 DATA OROD- ЧАТ (шт | 52 19 AOD HL,OF 
безо рата E 182, 92,241 | 53 226356 10 (NN) HL 23651 #(STKBOT) 
152 186, 92,24, 232, in. 58 216156 LD ML, (NN) 23649 &(UORKSP) 
JR 24 249 4,4% 282 Е 59 ADD HL,DE 
ud 92,28 :34 404 01, 9 66 вле Гы ‚н. 22649 »(VORKSP) 
m ы” 42199.92 85,5 4,99,92,4 63 295956 LD ML, (NN) 23641 +(Е LINE) 
492,083 4,97,92 TN. 289 66 ES PUSH HL 4SRUE OLD E_LINE 
und WTA i2 $:200.1 55,24. ар, ? 19 ADD HL,DE 
515 МЕН 180, 9а, n. 3453 n 68 225946 10 (NN! HL 23641 *(E LINE) 
42 КЕН * DELETE RECORD 
ШЕ T 126,230, TN NU 199,4 71 Ei POP HL *RECALL OLD E LINE 
TA 17,884 HIE ue 72 Di POP DE #RECALL NEXT 
12,38, м, 551% 73 RF XOR А РЕ5ЕТ CY FLAG 
itu 3M iM i, Уз, i5. 74 "042 SBC HL,DE *COMPUTE BYTES TO MOVE 
128,40 i»! isla 201 76 E5 PUSH HL #BYTE COUNT 
кц POR nsores "9,8 Оба: READ 7 Сі POP BC REG BCeBYTE COUNT 
Dyte POKE n 45416: NEXT п 78 03 INC RC #INCLUDE EOT MARKER 
en 5 FOR nsORGe To ORG2440: READ 79 289666 LD HL, (NN) 23702 + (HERE) 
(6: POKE п, В NEXT ^ 82 EB EX DE HL +5UAP MERE AND NEXT 
80 6 CLS : PRIN ат 12, 4," RECOR 83 EDBO LDIR "SLIDE VARS DOUN OVER RECORD 
DING CHINE CODE " 85 PAIBSC LO HL, (NN) 23702 ж (HERE) 
6017 SAVE ' "BURGE CODE ORG1,904( 88 18AC JR -8 5 #NEXT RECORD 
41 AND URL e$21) фтттзттцггттїиїхттттптгзттязтттшшгшгтт==зпгзшагщшипицшдшэдшшигшшшшш} 


6816 IF URL egaa THEN SAUE "FIN 
NEXT" CODE ORG2,4 

"PE PRINT RT 21,0; tap 8;" JOB C 

OMPETED 

6021 STOP 


ue Р 
The Entertainer” CON Trzwoco Tom Page g 
445 BEEP @,A: ВЕЕР @,0+С: GO su 


420 BEEP 8,040: ВЕЕР ЕТ,О+А. BE B CG: ВЕЕР ЁТ,О+Е: BEEP 0,0-0: G 

EP 0,0%6: ВЕЕР ЕТ, О+Е: ВЕЕР ET,O 0 SUB СС: ВЕЕР Н++ЕТ, О+С: 5 

ЕР ЕТ, О+Я: ВЕЕР 0,046: ВЕЕР ЕІ,0 300 РОР:=2 To 35а 

а ЕТ, О+С: ВЕЕР ЕТ, С: GO 5 710 РОВ :=2 TO 10: PRINT AT i ‚5 

; FLASH 1;"-z-zThe алады, nerz- 

ЕТ, О+С: +0: ". Р’.01,20: NEXT 

7. BEEP EI, жары EI,0«C: ВЕЕР БЕЕ 1,2 
EI,0+D: GO 50 | 715 FOR і=19 TO 12 STEP -1: PRI 
430 ВЕЕР Н+ЕТ, 0+С: GO SUB Сб: В NT BT esis By dim ANTA uas 
BEEP c ". BEEP’ .01,20: NEXT i 
435 BEEP © бас: ВЕЕР EI,R: BEEP . 720 FOR і-г TO 256 3 
9,0%С; BEEP EI,n: BEEP ÉI,O+C: 750 OUT 254,7: OUT 254,24: NEXT 
BEEP EI,A: Go" 208 cc i 


P EI,O«E: BEEP 0,0%6: ВЕЕР EI,0+ 
Е: ВЕЕР ЕІ,О%С: ВЕЕР EI,G: GO 50 
B CD 
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=The— Ereter tai 
54 Jit Smith 
i505) 948-4056 
FAFER O6: INK т: BORDER i: C 


CRAU 255,0: CRAU 2,175: DRA 
5,0: DRAW @,-175 

GO SUB 700 

BORDER 1 

REM 


LET TEMPO=1.0 
LET PRUSE-60 
LET W=TEMPO: LET ЧР =РАЧЦЕЕ 
LET Н-ТЕМРО/2: LET HPzPAUSE 


LET Ә-Н/2: LET ОР-НР/2 

LET EI=sQve: LET ЕР-ОоР/2 

LET SsEIvée: LET SPsEP;Z2 

СЕТ 0212 

LET. C20: LET Cost 

LET Den СЕТ 255 

LET Е=4 

LET Ез5: LET FSe6 

LET Се? LET GS$z:8 

LET А-9 LET ASIO 

LET В=11 

GO SUB 200 

GO TO 200 

REM * CHORDS - 

REM С-С-Е-С 

КЕТ X211. LET УЗЛЫ Ler Z 
GO SUB 197. RETURN 

РЕМ CH-CH-F-cGh 

LET X*3192 LET Y21583 ШЕТ: 
GO SUB 190, RETURN 

=D-FR-A 


GO SUB 190. RETURN 

REM bpms-Dpnu-uc-n" 

LET. x»177: LET Мае, LET 2 
GO SUB 180 RETURN 

REM F-F-n-C 

EET N3130: LET vYzlED. LET.Z 
GO SUB 190. RETURN 

REM FhüsFHu-n"t-cHu 

LET Xs-149. LET Үз116: LET 2 

GO SUB 140: RETURN 

REM G=+G-B-D 

LET Xs3141: LET Y2118. LET 2 

GO SUR 140: RETURN 

REM GRH=GH-C-OR 

LET Х=133: LET Ys105:. LET Z 

GO SUB 140: RETURN 

REM A=A-CH-E 

LET х<125: LET Y=99: LET 

GO SUB 120: RETURN 


LET Xs118: LET Үз94» LET Z= 
GO SUB 190: RETURN 

REM B=B-DR-FH 

LET Х=112: LET YsOOG- LET Z= 
GO SUB 190. RETURN 

SOUND 06,X;1,0;2;Y;93;0;4.z 
56;8,16:9, 16; 10,16; 12, 120. 1 


SOUND 8,0;2,0; 10,0: RETURN 
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LET CCs115 
LET СС5=125 
LET Гр-125 
LET CDS=145 
LET CFz155 
LET СР5=168 
LET CG=165 
LET OGS=170 
LET СЯ=175 
LET CAS5=180 
LET CBz185 
LET ТЕРНМ=195 А 
| RETURN "urs = 
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К! (pa myles) 


зав REM + ENTERTAINER + 

585 BEEF ЕТС: ВЕЕР EI.,D3: GO 2 
UB CC: BEEP EI,E: BEEP ©,О+С: БЕ 
EP EI,E: ВЕЕР 0,0-4: BEEP ЕІ,Е 
GO SUB CF: BEEP H+0, 040 

318 BEEP EI,04+C: BEEP EI,O-4D: E 
EEP EI,O«D3 

315 GO SUB СС: ВЕЕР ЕТ.О+Е: BEE 
P EI,O«C: ВЕЕР EI,04+0: 60 SUB СЕ 
; BEEP 0,0О0%Е: ВЕЕР ЕІ,Б: ВЕЕР 0, 


2+2 

S20 GO SUB CC: ВЕЕР H+0,04+C: BE 
EP EI,D: GO SUB CG: ВЕЕР EI DS 
Ses GO SUB CC: BEEF ЕІ.Е: BEEF 
0,0%С: ВЕЕР EI,E: ВЕЕР Q.O«C: ВЕ 
EP ЕІ,Е: 50 SUB CF: ВЕЕР Ы-ЕТ,О+ 
с 

330 BEEP EI A: ВЕЕР EI,G: GO 54 


B CD 
335 ВЕЕР ЕІ,Ғ5: ВЕЕР EI.h: ВЕЕ 
EI.O«C: BEEP @,0+E: ВЕЕР ЕІ,0- 
ВЕЕР EI,O+C: ВЕЕР EI,A: GO $4 
ce 
240 BEEP H«EI,O«D: ВЕЕР ЕІ.Г: Б 
EEP El;D$. GO SUB CC 
345 ВЕЕР EI.E: ВЕЕР Q.O4C: ВЕЕР 
ЕІ.Е: BEEP 0,0%С: BEEP EILE: С 
SUB CF: ВЕЕР H+0,0+C: ВЕЕР ЕТ, О 
+С: ВЕЕР EI,Q4D: ВЕЕР ЕТ, O+DS 
SSO GO SUB CC: ВЕЕР ЕІ,0+Е: E 
P EI,O«C: ВЕЕР EI,O04D: GO SUB 
ВЕЕР ©,0+E: ВЕЕР EI,B: BEEP a, 


о. +0 

355 GO SUB CC: ВЕЕР H«EI,O«C: E 

P ЕТ, пер 

о BEEP EI.Q-E: BEEP EI,O+C: B 

=P ЕТ, П+Г.: GO SUB CAS: ВЕЕР 0.0 
ВЕЕР EI,O«C: ВЕЕР EI,0+D: ВЕ 
-EI,O04C : 

565 GO SUB CF: BEEP EI.O«E: BEE 

EI. O+C: ВЕЕР EI,O-«D: BEEP 0,0-4 

BEEP EI,0+C: BEEP EI,0+4+D: BEE 

EI,O«C: GO SUB CC 

270 ВЕЕР ЕТ,О+Е: ВЕЕР EI,O-«C: E 

EP ЕІ.0+0: GO SUB CG: ВЕЕР @,0+ 

а ВЕЕР EI,B: BEEP 9,0+0: Go SUE 


375 BEEP H+EI,0+C: ВЕЕР EI,U-«C: 
ВЕЕР ЕІ,0+Е: ВЕЕР EI,0+F5: ВЕЕР 
ы,0+5: ВЕЕР ЕТ, О+Я: ВЕЕР 5,0-6: 
ВЕЕР ЕТ, О+Е: ВЕЕР ЕТ,О+Р; ВЕЕР 
ЕТ, О+Р5 

5380 ВЕЕР 0,046: BEEF ЕТ, О+Я: ВЕ 
ЕР @,04+6: ВЕЕР ЕТ,О+Е. BEEP ЕІ,О 
+С: ВЕЕР EI,G: GO SUB CF 

355 ВЕЕР EI,A: BEEF ЕІ,Б: BEEF 
EI,O4C: ВЕЕР EI,O4D: BEEP ЕТ, @+Е 

BEEP EI,üU4D: ВЕЕР EI,O04C: ВЕЕР 
EI,O4D: GO SUB CC 

580 BEEP EL,G: ВЕЕР ЕІ.0+Е: БЕРЕ 
Р EI,O«F: ВЕЕР ЕІ,0+5: ВЕЕР ЕІ,О 
+H: ВЕЕР ЕІ,0+5: ВЕЕР ЕІ,0+Е: БЕ 
EP EI,O-«F 

385 BEEP ü,0«G: ВЕЕР ЕІ,0+я: E 
EP 9,0-5 

400 BEEF EL,O+E: ВЕЕР EI,O4F: E 

E 


rm 


БЕР. EI,04F3 

485 BEEP &,04+6: ВЕЕР ЕТ, О+Я. Ef 
EP @,04+6: BÉEP БІ,0-6: E ; 
+H: ВЕЕР EI,O+AS: GO SUB CSG 

418 BEEP ЕІ,0+Е: BEEF “ы-ы сд ва 
SUB CD: ВЕЕР 0,0-Б: ВЕЕР ЕТ, +A 
: ВЕЕР EI,F2-4ü0: BEEP ЕТ, О +2 

415 GO SUB CG: ВЕЕР Н+ЕІ,0+5: E 
EEP EI, eer ВЕЕР EI,O-«F: BEEF EI 
,U«F25: GO SUB CC 


CONTINUE 
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@ REM VOLTAGZ REGULATOR OP АМР 


180 IF у›зо og ue Е 
DRIVEN COPYRIGHT 1984 BY н262 01507239 OR Ves OR ш‹г+з.з T 
BILL HARMER, OTTAWA 0185 IF $21 AND у<242.3 THEN GOT 
1 PRINT AT 10,0;"ELECTRONIC D 170 IF 5=1 TH 
ESIGN AIDS ------ БҮ BILL, HARM 150 PRINT "NOU ENTER MINIMUM 
ER. OTTAWA. 1984 PUT VOLTAGE. IF IT IS тык ZHUM IN 
5 0956 554 THAT I UM (";U;" VOLTS) ENTER 
sc 2 ^ iU, 
; ; THE PERSONAL USE OF ат 
от АДЕМ снарт. TPIMEX/SINCLAIR 130 INPUT N 
USER GROUP MEMBERS ONLY (NO LIRB Am 
ILITY FOR BURNED TRRNSISTORS,FIN 392 cus з 
GERS.ETC. 15 ACCEPTED BY THE 210 ІР Nev THEN LET ші 
AUTHOR SINCE ELECTRONICS IS ЯМ 20 IF Ма) THEN LET 941,18 
EXPERIMENTAL SCIENCE.MURPHYS LAW nee esses AND 471.1‹>470.9 THE 
APPLIES.) ; L SN 
:ЕМ UR OP 5,8 VOLTAGE REGUL 835 IF B$-"DIRG" AND S= 
ATOR CIRCUIT DESIGN PROGRAM USIN RINT “MAX AND MIN VOLTAGES НЕМЕР 
G Я 741 О-АМР АМС NPN TANSISTOR, BEEN CHANGED TO ";U;" AND VONE, 
BY BILL HARMER, OTTAWA, 1984 RESPECTIVELY” PN; 
6 LET М-0 2 =1 THEN GOTO 15 
11 IF М::0 THEN МЕМ қ а 250 IF М‹5 THEN PRINT "HINIMUM 
2а PRINT AT 10,0; "0Р АМР VOLT Ae UT VOLTAGE IS TOO LOUFOR ОР-Я 
REGULA і S 
ЗЕ S ERINT AT 20,0; PRESS ENTER 255 REM U.R. DESIGN PROGRAM 198 
ro Bo OH" 4, BY BILL HARMER, ALL RIGHTS 
40 INPUT BS с Е sd RESERUED 
42 IF Bg="SESAME” THEN GOTO 9 INT “HON IS AND 5<>1 THEN PR 
e INPUT VOLTAGE IS TO 
45 CLS 0 LOWFOR CIRUIT "T2 
55 PRINT "THIS PROGRAM WILL DE 7j" VOLTS. TRY AGAIN PUT 2-9. 
SIGN Я UGLT-AGE REGULATOR USING 265 IF М‹7+2.3 AND S=1 THEN PRI 
АН NPN TRHN-BISTOR DRIVEN BY Я 7 NLouraHIMUM INPUT VOLTAGE IS TOO 
Cc. қ ‚Б Я Sri A 
4321 PRINT "PRESS ENTER TO GO ON i" UOLTS. TRY Ben ;BHTPUT :2-0.7 
270 IF N«5 THEN GOTO 56 
So ms AS 272 IF 5‹>1 AND М‹з.з THEN GOTO 
61 PRINT "CHOOSE A ZENER DIODE 575 IF 52 
LTS HIGHER ТН I 80 PRINT " 
Быт GR AOE „25 NECESAR ВР Dui ӨТЕУ, OF, THE REN BADEN TRANS SETS, í 
z v 
В TO RAISE THIS VOLTAGE «0.7 U. T nogett+ BE USING IN THE CIRCUI 


2980 INPUT B 


62 LET $=0 зде CLS 
64 PRINT “ап 400 MJ TO 1 WATT 516 x А 
ZENER DIODE CAN BE USEDE" LLECTOR CUR-BERT ІНЕ MAXIMUM со 
S3 PRINT "ENTER THAT ZENER VOL OR YOY BILL USE NOU (IN мал 157 
JASE, (OR IF 14914 USED ZENER 0. + S25 QS | М 
7? 330 LET C=M710 

80 INPUT Z За М/1о20 

85 IF 2;26 THEN PRINT "ZENER 9 тВАФҮББ1НТ "ENTER THE POWER DISS 
OLTAGE MUST BE UNDER 26 VOLTS" MILLIUATTS £) NOU NSISTOR (IN 

55 ТЕ 2926 THEN GOTO 60 356 INPUT p NOW 
95 PRINT "OUTPUT VOLTAGE WILL 368 LET D=P/1000 — 

Е": 50:7; “VOLTS” 370 GEM Per Gigs dZ-0-7) 1.83) 

98 PRINT “ENTER 11064" IF THIS aoa SEM SET QPERAT ING CURRENT 
#8 Sh Roary то^ЁнанбЕ PPY U^ S Uu e 
AEB TEE g geet onas ERE RR M тов 
="AGAIN" 4 GOTO 6 Uc STOR-TRY абаім" 

Жейт! vds e 374 IF (u-(-7-. ы AIN 
AND arc OKAY AND RECHT" AND A N вотб gi 2-0.7) #0>D+0. 8B, THE 
$c'"TRY" THEN GOTO 95 28 ТЕ О‹1 THEN PRINT * OPTIMU 

105 PRINT “ENTER MAXIMUM INPUT D. MAXIMUM CURRENT OUTPUT="; 10005 
VOLTAGE FOR VOLTAGE REGULATOR NO а Е : 

g l 76 › N PRINT " 

110 INPUT v М MAXIMUM CURRENT OUTPUT" 257290 
130 IF 9:30 THEN PRINT “INPUT 980 IF (U-(Z-0.7) ) жОзр/в AND ( 
VOLTRGE IS TOO HIGH FOR THIS OP BÁE-0.T7))*OczDsO.85 THE 5 

MOHD env aud POWER DISSIPATED IS NEAN HU IN 
140 IF U<5 THEN PRINT “THIS VOL OF SG RENS ISTOR" ZENUN 
TAGE IS TOO LOW FOR OP- AMP. TRY On os ae ЕЗІГОДЕ, ZENER RESIST 

150 IF U«Z«3.59 AND 5‹›1 THEN PR 0-27 /0.008) ; " OHMS” = TOINTE 
ENT “INPUT VOLTAGE IS TOO LOU FO 388 PRINT 
Rae OUTPUT VOLTAGE REQUIRED ОР " PRESS ENTER TO GO ON 
155 IF U«Z«2.3 AND 5-1 THEN PRI 395 INPUT A$ 
NT “INPUT VOLTAGE IS TOO LOW FOR 398 CLS 

OUTPUT VOLTAGE REQUIRED OF T 399 GOSUB 1000 


HE CIRCUIT. TRY AGAIN" 
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page < ol Listing ror voltage negulator rrozram 


This program will design a ly 

405 LET Wet Simple voltage regulator 

„420 PRINT "TO TRY AGAIN ENTER " for a fixed voltage, using < 

i te IF NOT ENTER ""QUIT""" а 741 ор amp driving an NPN 

435 Gree R$ Series pass transistor. Шы 
650 TE ass" OUIT™ OR RH$z"O" THEN The voltage output may be 

^ % аты made variable by placing a E 

450 IF Ag="TRY OR A$="T TH 

GoTo ges s TRY кана 3 EN 50K pot accross the zener 

сун x OUT" AN У | 
DAS<>"QUIT" AND дз" THEN ВМ diode and taking the input 
INT, ;RNSUER UUTRY"U" OR ""QUIT"" о the op amp 2 the қарар 
Ц - centre termina instead o S 

470 IF R$:»"TRY" AND A$ T“ AN 
DAS<>"QUIT" AND R$c"G" THEN ON from the top of the zener 9 
TSob Cer Wet diode. п) 
SOS IF BS-"DIRG" THEN PRINT "ME BASIC C Fr 
MORY USED="; PEEK 16395+256+PEEK 22510 CIRCUIT Ta 
16397-156384;" BYTES INCL. SYS. uU H 
RRIRBLES" 

510 GOTO 11 

1000 REM CIRCUIT CONNECTIONS 

1010 PRINT "+++ТНЕ CIRCUIT»»*»*»" 

1015 PRINT "PIN NUMBERS REFER TO 

PINS OF 7410P-AMP (8 PIN DIP VE 


RSION)" 


1030 PRINT "CONNECT ONE END ОЕ T 
HE RESISTOR (APPROX. ";INT ((N-Z 
240.008); " OHMS.), PIN 7, AND TH 
E NPN TRANSISTORS COLLECTOR TO T 
HE POSITIUE TERMINRL OF THE D.C 
ЗЕ CULGTED POUER SUPPLY" 


1035 
1040 PRINT "CONNECT THE OTHER EN e Ж 
D OF THE RÉSISTOR АМО THE CAT [2 


HODE (RING- ED END) OF THE ZENER 
DIODE TO PIN 3" 


1050 PRINT “+*+РВЕЗЗ ENTER TO GO Ө Nei А 

N“ о то 
4882 дел es е 
1080 PRINT "CONNECT PIN 2 AND T Sas м, Әсе 5r 
НЕ TRANSIST-OR емітен TO THE QUT 1120 INPUT A$ tye 
ХАКАС с Ее жар 

с “)2-9.7;" 1150 IF Age" к“ "B" 
REEDS ar ; ; Motor odd" BACK" OR H$s"B" THEN 

A$ OVON“ AN бөпө zy. - 

1100 PRINT “ADDITIONAL PROTECTIU нах DACE ANG ТАКЕ АКТ т NY 
E COMPONENTSRDUISRBLE TO ADD ARE NT “ANSUER ONLY ""Back"" QR "Oh , 
ia) R^iNSOODIODE nHODE No ENT TER iiio jf AGAIN 

іг; 140 о M 114 IF р P" " um 

AND CATH- ODE TO COLLECTOR б ASO BACK" AND Ago et THEN AND 0792. 
1105 PRINT "SPECS--OUTPUT UOLTAG Q fiio 
OLTAGES":2;" S 22 900 Э‹ _ m 
SISTOR (CLOSEST STANDARD UnLUE T $001 СЕН SAVE ROUTINE Я 7.£A7- 0535 
O ":INT ((N-Z)^.008):" OHMS" 3005 PEINT = м 
1106 IF 0‹1 THEN PRINT “CONSERUA те е s iiu MU LU M Бете] 
TIVE НАХ CURRENT RRTING«";0»1000 9010 PAUSE 250 ос 
iT MAT : 9015 REM FOR THE PERSONAL Us 
1107 IF 0›=1 THEN PRINT "CONSERU SONAL USE оғ Ao. - Oc 
ATIVE MAX CURRENT RRTINGs";0;" Я USER GROUP ивр A PI CLAIR е лој 137-5079 

Е - LITY FOR BURN Я d 
1109 IF 6$="DIAG" AND 5-0 THEN P GERS ETC, 15 ACCEPTED By tra FIN Nen 
RINT “MAX U. INzZ";U;" AND MIN у. AUTHOR SINCE ELECTRONICS IS AN Weekd 
="; с МЕ 5 Y - 

1109 IF Bs-"DIaG" AND 5-1 THEN P APPLIES.) © SCIENCE MURPHYS Law “у (тә, — 
RINT “AMENDED пах О. INs";U;" AN 9920-Е СИ 
D HIN ч, IN= QN cs Vox 9030 SAUE "UROB" у) 
1110 PRINT “ENTER ""BaCk"" TO Go НА м 

BACK TO CIRC-UIT DETAILS. OR © €sjeca-e — 
ON"" TO CONTINUE" 
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